home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / misc / amag / AM9512_2.lha / Faxen mit Amiga / ARexx / TWIST_Fax.rexx < prev    next >
OS/2 REXX Batch file  |  1995-10-12  |  2KB  |  59 lines
  1. /*
  2.  * $VER: TWIST_Fax.rexx 1.00 (12. Oktober 1995)
  3.  */
  4.  
  5. /****************************************************************
  6.  * Dieses Skript in MaxonTWIST mit »Projekt/Icon anmelden...«   *
  7.  * zum Desktop von MaxonTWIST hinzufügen. Per Doppelklick auf   *
  8.  * dieses Piktogramm wird die aktuelle Adresse an "AutoFaxDesk" *
  9.  * übergeben.                                                   *
  10.  ****************************************************************
  11.  *                                                              *
  12.  * ACHTUNG: Der Name der Datenbank (hinter dem Befehl OPEN      *
  13.  *          muß u.U. angepaßt werden!                           *
  14.  *                                                              *
  15.  ****************************************************************/
  16.  
  17. addressdatei = 'TWIST:Adressen/Adressen.DB'
  18.  
  19. options results
  20. address twist
  21.  
  22. /* Tragen Sie hier den Namen (mit Pfad) Ihrer Adress-Datei ein! */
  23.  
  24. if ~exists( addressdatei) then do
  25.     say "Kann" addressdatei "nicht finden!"
  26.     say "Ändern Sie ggf. den Dateinamen im Skript »AutoDeskFax«!"
  27.     exit 10
  28. end
  29.  
  30. OPEN addressdatei
  31. OPENWINDOW
  32.  
  33. /********************************************************
  34.  *  Die folgenden Befehle lesen die Datenfelder aus.    *
  35.  *                                                      *
  36.  *  WICHTIG: Wenn die Datenfelder andere Namen haben,   *
  37.  *           z.B. 'FAXNUMMER' statt 'FAX' so müssen Sie *
  38.  *           den richtigen Namen hinter dem Befehl      *
  39.  *           'GETDBFORMFIELD' eintragen!                *
  40.  *                                                      *
  41.  ********************************************************/
  42.  
  43. "GETDBFORMFIELD Name"
  44. name   = RESULT
  45. "GETDBFORMFIELD Vorname"
  46. vorname= RESULT
  47. "GETDBFORMFIELD PLZ"
  48. ort    = RESULT
  49. "GETDBFORMFIELD Ort"
  50. ort    = ort RESULT
  51. "GETDBFORMFIELD Strasse"
  52. strasse= RESULT
  53. "GETDBFORMFIELD fax"
  54. fax    = RESULT
  55.  
  56. call AutoDeskFax( name, vorname, strasse , ort , fax )
  57. exit 0
  58.  
  59.